home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Updates, etc. / PG PRO⁄PG Lite Demos / PG PRO Demo / PG PRO Demo.rsrc / FLTR_1000_ICON < prev    next >
Text File  |  1993-09-10  |  2KB  |  56 lines
  1. '===============================================================================
  2. '=                         Copyright 1992 Staz™ Software, Inc.                 =
  3. '=                               All rights reserved                           =
  4. '=                             "ICON.FLTR" from PG:PRO                         =
  5. '===============================================================================
  6. INCLUDE FILE _aplIncl
  7. COMPILE 0,_MacsbugLabels_strResource_caseInsensitive'set by PG:PRO
  8. GLOBALS "PG PRO.GLBL"'standard
  9. END GLOBALS'end of global DIMs
  10. GOTO"Icon Filter"'ALWAYS branch around FNs
  11. '
  12. '===============================================================================
  13. LOCAL FN DIError
  14. '=============================================================================
  15. CALL FRAMERECT(gObjT)
  16. CALL INSETRECT(gObjT,1,1)
  17. TEXT 1,9,0,0
  18. t$ = "ID"+STR$(gObjUser1)
  19. DEF CBOX(gObjT,t$)
  20. END FN
  21. '===============================================================================
  22. LOCAL FN DIdrawIcon
  23. '=============================================================================
  24. IconHndl& = FN GETICON(gObjUser1)'look for ICON
  25. LONG IF IconHndl&'got it?
  26. CALL PLOTICON(gObjT,IconHndl&)'draw the icon
  27. XELSE'didn't get it?
  28. FN DIError'show the error
  29. END IF
  30. END FN
  31. '===============================================================================
  32. LOCAL FN DIdrawcicn
  33. '=============================================================================
  34. LONG IF SYSTEM(11)>1
  35. cicnHndl& = FN GETCICON(gObjUser1)'look for cicn
  36. LONG IF cicnHndl&'found cicn?
  37. CALL PLOTCICON(gObjT,cicnHndl&)'draw it
  38. CALL DISPOSCICON(cicnHndl&)'& dispose of structures
  39. XELSE'couldn't get cicn res?
  40. FN DIdrawIcon'try a regular ICON
  41. END IF
  42. XELSE
  43. FN DIdrawIcon'try a regular ICON
  44. END IF
  45. END FN
  46. '===============================================================================
  47. "Icon Filter"
  48. LONG IF gAction = _otherAction
  49. LONG IF gSubAction = _otherUserUpdate
  50. LONG IF gObjUserTp& = _"ICON"
  51. FN DIdrawcicn
  52. END IF
  53. END IF
  54. END IF
  55. '===============================================================================
  56.